home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / solidQuadrics / SolidCylinder2.wwModel / animation.nib / data.nib (.txt) < prev   
Encoding:
NeXT TypedStream Data  |  1995-03-22  |  5.6 KB  |  108 lines
  1. typedstream
  2. IBObjectData
  3. Object
  4. CustomObject
  5. WWTCLInterp
  6. ButtonCell
  7. ActionCell
  8. Radio
  9.     Helvetica
  10. NXImage
  11. control_play
  12. control_playH
  13. Matrix
  14. Control
  15.     Responder
  16. @:@iiii
  17. control_stop
  18. control_stopH
  19. control_pause
  20. control_pauseH
  21. ff@@#::s
  22. NXradio
  23. NXradioH
  24. xRotate
  25. zRotate
  26. thetaMax
  27. WWTextField
  28.     TextField
  29. WWTextFieldCell
  30. TextFieldCell
  31. )set ${shape}(radiusFactor) %f; updateView
  32. set ${shape}(radiusFactor)
  33. radiusFactor
  34. 'set ${shape}(zMinFactor) %f; updateView
  35. set ${shape}(zMinFactor)
  36. zMinFactor
  37. 'set ${shape}(zMaxFactor) %f; updateView
  38. set ${shape}(zMaxFactor)
  39. zMaxFactor
  40. yRotate
  41.     WWTTTimer
  42. @:diciffffc
  43. set ${shape}(zMax) [expr {$initialZMax + cos($PI * $u) * [set ${shape}(zMaxFactor)]}]
  44. set u [expr {$u + $uIncr}]
  45. synchWithScene
  46. qset initialZMax [set ${shape}(zMax)]
  47. set u 0
  48. set numberOfSteps 60
  49. set uIncr [expr 1./[expr $numberOfSteps - 1.]];
  50. Rset ${shape}(zRotate) [expr {$u * 360.}]
  51. set u [expr {$u + $uIncr}]
  52. synchWithScene
  53. Lset u 0
  54. set numberOfSteps 60
  55. set uIncr [expr 1./[expr $numberOfSteps - 1.]];
  56. if {$openIt} \
  57.    { set ${shape}(thetaMax) [expr {[expr {1. - $u}] * 360.}]} \
  58.    { set ${shape}(thetaMax) [expr {$u * 360.}]}
  59. set u [expr {$u + $uIncr}]
  60. synchWithScene
  61. set initialTheta [set ${shape}(thetaMax)]
  62. if {$initialTheta > 180} {set openIt 1; set u [expr {1. - $initialTheta/360.}]} {set openIt 0; set u [expr {$initialTheta/360.}]}
  63. set numberOfSteps 60
  64. set uIncr [expr 1./[expr $numberOfSteps - 1.]];
  65. Rset ${shape}(yRotate) [expr {$u * 360.}]
  66. set u [expr {$u + $uIncr}]
  67. synchWithScene
  68. Rset ${shape}(xRotate) [expr {$u * 360.}]
  69. set u [expr {$u + $uIncr}]
  70. synchWithScene
  71. qset initialX [set ${shape}(xRotate)]
  72. set u 0
  73. set numberOfSteps 60
  74. set uIncr [expr 1./[expr $numberOfSteps - 1.]];
  75. WindowTemplate
  76. iiii***@s@
  77. Animation controls
  78. Panel
  79. set ${shape}(zMin) [expr {$initialZMin + sin($PI * $u) * [set ${shape}(zMinFactor)]}]
  80. set u [expr {$u + $uIncr}]
  81. synchWithScene
  82. qset initialZMin [set ${shape}(zMin)]
  83. set u 0
  84. set numberOfSteps 60
  85. set uIncr [expr 1./[expr $numberOfSteps - 1.]];
  86. set ${shape}(radius) [expr {$initialRadius + sin($PI * $u) * [set ${shape}(radiusFactor)]}]
  87. set u [expr {$u + $uIncr}]
  88. synchWithScene
  89. uset initialRadius [set ${shape}(radius)]
  90. set u 0
  91. set numberOfSteps 60
  92. set uIncr [expr 1./[expr $numberOfSteps - 1.]];
  93. radius
  94. File's Owner
  95. controls
  96. [29@]
  97. IBOutletConnector
  98. IBConnector
  99. controlPanel
  100. IBControlConnector
  101. stop:
  102. start:
  103. pause:
  104. interp
  105. stopButton
  106. startButton
  107. pauseButton
  108.